home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 / IRIX 6.2 CD2.iso / dist / outbox.idb / var / www / cgi-bin / handler.z / handler
Text File  |  1996-06-10  |  2KB  |  121 lines
  1. #!/usr/bin/perl
  2.  
  3. #__________________________________________________________
  4. #
  5. #   File:    handler
  6. #   By:      Matt Ho
  7. #   Date:    7/23/95
  8. #   Purpose: Appropriately packages documents for download
  9. #            or display.
  10. #__________________________________________________________
  11.  
  12.  
  13. #__________________________________________________________
  14. #
  15. #    Set some environment variables, we'll need through the
  16. #    script and do some initial error checking.
  17. #__________________________________________________________
  18.  
  19. $ROOT     = "/var/www/htdocs" ;    # Root directory
  20. $PATH     = $ENV{'PATH_INFO'} ;
  21.  
  22. $ls       = "/sbin/ls -a1" ;
  23.  
  24. chop $PATH if substr($PATH, -1) eq "/" ;
  25. @_        = split('/', $PATH) ;
  26. $pathRoot = $_[$#_] ;
  27. $doc      = $ROOT.$PATH ;
  28.  
  29. &ErrBadPath unless &ValidPath ; # Check for server spoofing
  30.  
  31. #__________________________________________________________
  32. #
  33. #    Read the form data in (we just may need this)
  34. #__________________________________________________________
  35.  
  36. if( $ENV{'REQUEST_METHOD'} eq "GET" )
  37. {
  38.    $buffer=$ENV{'QUERY_STRING'} ;
  39. } 
  40. else
  41. {
  42.    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}) ;
  43. }
  44.  
  45. @pairs = split(/&/, $buffer) ;
  46. foreach (@pairs)
  47. {
  48.     tr/+/ / ;    
  49.    ($name,$value) =  split(/=/) ;
  50.     $value        =~ s/%(..)/pack("c",hex($1))/ge ;
  51.     $name         =~ s/%(..)/pack("c",hex($1))/ge ;
  52.  
  53.     $FORM{$name} = $value ;
  54. }
  55.  
  56.  
  57. #__________________________________________________________
  58. #
  59.  
  60. $data = $FORM{'data'} ;
  61. if( $data eq "Download" )
  62. {
  63.     unless( open(INPUT, $doc) )
  64.     {
  65.         print <<ENDOFTEXT ;
  66. Content-type: text/html
  67.  
  68. <HEAD><TITLE>404 Not Found</TITLE></HEAD>
  69. <BODY><H1>404 Not Found</H1>
  70. The requested URL $ENV{'PATH_INFO'} was not found on this server.<P>
  71. </BODY>
  72. ENDOFTEXT
  73.         return ;
  74.     } 
  75.     print <<ENDOFTEXT ;
  76. Content-type: application/octet-stream
  77.  
  78. ENDOFTEXT
  79.  
  80.     while( read(INPUT, $buf, 16384) )
  81.     {
  82.         print $buf ;
  83.     } 
  84.  
  85.     close(INPUT) ;
  86. }
  87. elsif( $data eq "View" )
  88. {
  89.     substr($PATH, 0, 1) = "/~" ;
  90.     print <<ENDOFTEXT ;
  91. Location: $PATH
  92.  
  93. ENDOFTEXT
  94. }
  95. else
  96. {
  97.     print <<ENDOFTEXT ;
  98. Content-type: text/html
  99.  
  100. <HEAD><TITLE>404 Not Found</TITLE></HEAD>
  101. <BODY><H1>404 Not Found</H1>
  102. The requested URL $PATH was not found on this server.<P>
  103. </BODY>
  104. ENDOFTEXT
  105. }
  106.  
  107. #__________________________________________________________
  108.  
  109. sub ValidPath
  110. {
  111.     return 1 unless /\.\./ ;
  112.    
  113.     return '' if /^\.\./ ;
  114.     return '' if /\/\.\.\// ;
  115.     return '' if /\.\.$/ ;
  116.  
  117.     return 1 ;
  118. }
  119.  
  120.  
  121.